home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
002
/
pcomenu.arc
/
PCOMENU.DEF
next >
Wrap
Text File
|
1986-03-06
|
1KB
|
61 lines
BEGIN INS,INS,ENTR,LF,RT,UP,DN,4,8
INS: EXECUTE CHK1
;
;-----CHECK TO SEE IF WE ARE IN MENU MODE
;
CHK1: MATCH 1,2,NORMAL,"FILE",MMODE,CHK2
CHK2: MATCH 1,8,NORMAL,"OUTLINE",MMODE,CHK3
CHK3: MATCH 1,17,NORMAL,"EDIT",MMODE,CHK4
CHK4: MATCH 1,23,NORMAL,"DISPLAY",MMODE,CHK5
CHK5: MATCH 1,32,NORMAL,"PRINT",MMODE,CHK6
CHK6: MATCH 1,39,NORMAL,"HIDE",MMODE,CHK7
CHK7: MATCH 1,45,NORMAL,"SHOW",MMODE,CHK8
CHK8: MATCH 1,51,NORMAL,"WINDOW",MMODE,CHK9
CHK9: MATCH 1,59,NORMAL,"ADVANCED",MMODE,GOMENU
;
;-----WE ARE IN MENU MODE, LEFT BUTTON PRESSED, TYPE AN ESCAPE
;-----AND RESTORE MOUSE SENTIVITY TO EDIT MODE VALUES
;
MMODE: EXECUTE SENS2,OUT2
SENS2: ASSIGN ,,,,,,,4,8
OUT2: TYPE ESC
;
;-----WE ARE NOT IN MENU MODE, LEFT BUTTON PRESSED, TYPE AN INSERT
;-----AND CHANGE MOUSE SENSITIVITY PARAMETERS
;
GOMENU: EXECUTE SENS1,INS1
SENS1: ASSIGN ,,,,,,,16,32
INS1: TYPE 0,82
;
;-----STANDARD MOVEMENT AND KEY DEFINITIONS
;
ENTR: TYPE ENTER
LF: TYPE 0,75
RT: TYPE 0,77
UP: TYPE 0,72
DN: TYPE 0,80